Public Sub Set_NewTree()
        Dim myRootNode As Object
        Dim ChildNode As Object
        Dim myNewNode = New Microsoft.Web.UI.WebControls.TreeNode()
        Dim I As Integer
        Dim node_letter As String

        tvTreeView.Nodes.Clear()
        'Set the Document Type
        tvTreeView.Nodes.Add(myNewNode)
        myRootNode = tvTreeView.Nodes.Item(0)
        myRootNode.text = "AddressBook"
        'Set the Documents
        tvTreeView.ExpandLevel = 1
        tvTreeView.ShowLines = True
        tvTreeView.ShowPlus = True
        For I = 1 To 26
            Dim myNewChildNode As New Microsoft.Web.UI.WebControls.TreeNode()
            node_letter = Chr(64 + I)
            myRootNode.Nodes.Add(myNewChildNode)
            ChildNode = myRootNode.nodes.item(myRootNode.nodes.count - 1)
            ChildNode.text = node_letter
        Next I
End Sub
